home *** CD-ROM | disk | FTP | other *** search
/ Software Vault: The Gold Collection / Software Vault - The Gold Collection (American Databankers) (1993).ISO / cdr50 / pb3brows.zip / GENERAL.BI < prev    next >
Text File  |  1993-04-02  |  2KB  |  69 lines
  1. '******************************************************************************
  2. '*             General include file voor PowerBasic 3 routines               *
  3. '*                      (c) Hans Lunsing - 04/1993                            *
  4. '******************************************************************************
  5.  
  6.  
  7. '********************* Declaration of constants **********************************
  8.  
  9. ' Boolean waarden:
  10.  
  11. %TRUE = -1
  12. %FALSE = 0
  13.  
  14. ' Video adapters:
  15.  
  16. 'pbvScrnCard    byt  read only   screen video card descriptor 'values???
  17. '                                bit 0 = mono   bit 1 = cga   bit 2 = egamono
  18. '                                bit 3 = egaclr bit 5 = vga   bit 6 = hercules
  19. '                                bit 4 ?
  20. 'Each of these bits is set on an inclusive basis.  That means a VGA card
  21. 'would set bits 1, 3, and 5.  So you can simply test a bit to see if a
  22. 'particular mode is supported on the card running.
  23. '
  24. 'Example: a value of 58 would mean => vga/egacolor/cga.
  25.  
  26. %MONO = 1           'monochroom, niet EGA
  27. %CGA = 2           'CGA
  28. %EGAMONO = 4           'monochroom EGA
  29. %EGACLR = 8           'EGA
  30. %VGA = 32           'VGA
  31. %HERC = 64           'Hercules
  32.  
  33. ' Toetsen
  34.  
  35. %LF = 10
  36. %CR = 13
  37. %TAB = 9
  38.  
  39. ' Registers
  40.  
  41. %FLAGS = 0
  42. %AX    = 1
  43. %BX    = 2
  44. %CX    = 3
  45. %DX    = 4
  46. %SI    = 5
  47. %DI    = 6
  48. %BP    = 7
  49. %DS    = 8
  50. %ES    = 9
  51.  
  52. '**************** FUNCTION en SUB declaraties *********************************
  53.  
  54. DECLARE FUNCTION BlinkStatus ()
  55. DECLARE FUNCTION GetActiveColor ()
  56. DECLARE FUNCTION GetKey ()
  57. DECLARE FUNCTION GetVideoMode ()
  58. DECLARE FUNCTION MakeChar$ (BYVAL INTEGER)
  59. DECLARE FUNCTION MakeKey (STRING)
  60. DECLARE SUB Attr (BYVAL INTEGER, BYVAL INTEGER)
  61. DECLARE SUB Browse (STRING, BYVAL INTEGER, BYVAL INTEGER, BYVAL INTEGER, _
  62.     BYVAL INTEGER, BYVAL INTEGER, BYVAL INTEGER, BYVAL INTEGER, INTEGER)
  63. DECLARE SUB ClearLines (BYVAL INTEGER, BYVAL INTEGER)
  64. DECLARE FUNCTION GetActiveColor ()
  65. DECLARE SUB GetAttr (INTEGER, INTEGER)
  66. DECLARE SUB GetVideoAddress (INTEGER, INTEGER)
  67. DECLARE FUNCTION GetVideoMode ()
  68. DECLARE SUB InvertColor (BYVAL INTEGER, BYVAL INTEGER, INTEGER, INTEGER)
  69.